/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / uniquify.elc.z / uniquify.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 32 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:22 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 75 6e 69 71 75 69 | 66 79 2e 65 6c 0a 3b 3b |s/uniqui|fy.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 75 6e 69 71 75 |  (error| "`uniqu|
|000001f0| 69 66 79 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ify.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 88 c2 c1 | c3 c4 c5 c6 25 87 22 20 | "..!...|....%." |
|00000270| 5b 70 72 6f 76 69 64 65 | 20 75 6e 69 71 75 69 66 |[provide| uniquif|
|00000280| 79 20 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |y custom|-declare|
|00000290| 2d 67 72 6f 75 70 20 6e | 69 6c 20 22 55 6e 69 71 |-group n|il "Uniq|
|000002a0| 75 65 20 62 75 66 66 65 | 72 20 6e 61 6d 65 73 20 |ue buffe|r names |
|000002b0| 64 65 70 65 6e 64 65 6e | 74 20 6f 6e 20 66 69 6c |dependen|t on fil|
|000002c0| 65 20 6e 61 6d 65 22 20 | 3a 67 72 6f 75 70 20 61 |e name" |:group a|
|000002d0| 70 70 6c 69 63 61 74 69 | 6f 6e 73 5d 20 36 29 0a |pplicati|ons] 6).|
|000002e0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|000002f0| 76 61 72 69 61 62 6c 65 | 20 27 75 6e 69 71 75 69 |variable| 'uniqui|
|00000300| 66 79 2d 62 75 66 66 65 | 72 2d 6e 61 6d 65 2d 73 |fy-buffe|r-name-s|
|00000310| 74 79 6c 65 20 27 6e 69 | 6c 20 22 2a 49 66 20 6e |tyle 'ni|l "*If n|
|00000320| 6f 6e 2d 6e 69 6c 2c 20 | 62 75 66 66 65 72 20 6e |on-nil, |buffer n|
|00000330| 61 6d 65 73 20 61 72 65 | 20 75 6e 69 71 75 69 66 |ames are| uniquif|
|00000340| 69 65 64 20 77 69 74 68 | 20 70 61 72 74 73 20 6f |ied with| parts o|
|00000350| 66 20 64 69 72 65 63 74 | 6f 72 79 20 6e 61 6d 65 |f direct|ory name|
|00000360| 2e 5c 6e 54 68 65 20 76 | 61 6c 75 65 20 64 65 74 |.\nThe v|alue det|
|00000370| 65 72 6d 69 6e 65 73 20 | 74 68 65 20 62 75 66 66 |ermines |the buff|
|00000380| 65 72 20 6e 61 6d 65 20 | 73 74 79 6c 65 20 61 6e |er name |style an|
|00000390| 64 20 69 73 20 6f 6e 65 | 20 6f 66 20 60 66 6f 72 |d is one| of `for|
|000003a0| 77 61 72 64 27 2c 5c 6e | 60 72 65 76 65 72 73 65 |ward',\n|`reverse|
|000003b0| 27 2c 20 60 70 6f 73 74 | 2d 66 6f 72 77 61 72 64 |', `post|-forward|
|000003c0| 27 20 28 74 68 65 20 64 | 65 66 61 75 6c 74 29 2c |' (the d|efault),|
|000003d0| 20 6f 72 20 60 70 6f 73 | 74 2d 66 6f 72 77 61 72 | or `pos|t-forwar|
|000003e0| 64 2d 61 6e 67 6c 65 2d | 62 72 61 63 6b 65 74 73 |d-angle-|brackets|
|000003f0| 27 2e 5c 6e 46 6f 72 20 | 65 78 61 6d 70 6c 65 2c |'.\nFor |example,|
|00000400| 20 66 69 6c 65 73 20 60 | 2f 66 6f 6f 2f 62 61 72 | files `|/foo/bar|
|00000410| 2f 6d 75 6d 62 6c 65 2f | 6e 61 6d 65 27 20 61 6e |/mumble/|name' an|
|00000420| 64 20 60 2f 62 61 7a 2f | 71 75 75 78 2f 6d 75 6d |d `/baz/|quux/mum|
|00000430| 62 6c 65 2f 6e 61 6d 65 | 27 5c 6e 77 6f 75 6c 64 |ble/name|'\nwould|
|00000440| 20 68 61 76 65 20 74 68 | 65 20 66 6f 6c 6c 6f 77 | have th|e follow|
|00000450| 69 6e 67 20 62 75 66 66 | 65 72 20 6e 61 6d 65 73 |ing buff|er names|
|00000460| 20 69 6e 20 74 68 65 20 | 76 61 72 69 6f 75 73 20 | in the |various |
|00000470| 73 74 79 6c 65 73 3a 5c | 6e 20 20 66 6f 72 77 61 |styles:\|n  forwa|
|00000480| 72 64 20 20 20 20 20 20 | 20 20 62 61 72 2f 6d 75 |rd      |  bar/mu|
|00000490| 6d 62 6c 65 2f 6e 61 6d | 65 20 20 71 75 75 78 2f |mble/nam|e  quux/|
|000004a0| 6d 75 6d 62 6c 65 2f 6e | 61 6d 65 5c 6e 20 20 72 |mumble/n|ame\n  r|
|000004b0| 65 76 65 72 73 65 20 20 | 20 20 20 20 20 20 6e 61 |everse  |      na|
|000004c0| 6d 65 5c 5c 6d 75 6d 62 | 6c 65 5c 5c 62 61 72 20 |me\\mumb|le\\bar |
|000004d0| 20 6e 61 6d 65 5c 5c 6d | 75 6d 62 6c 65 5c 5c 71 | name\\m|umble\\q|
|000004e0| 75 75 78 5c 6e 20 20 70 | 6f 73 74 2d 66 6f 72 77 |uux\n  p|ost-forw|
|000004f0| 61 72 64 20 20 20 6e 61 | 6d 65 7c 62 61 72 2f 6d |ard   na|me|bar/m|
|00000500| 75 6d 62 6c 65 20 20 6e | 61 6d 65 7c 71 75 75 78 |umble  n|ame|quux|
|00000510| 2f 6d 75 6d 62 6c 65 5c | 6e 20 20 70 6f 73 74 2d |/mumble\|n  post-|
|00000520| 66 6f 72 77 61 72 64 2d | 61 6e 67 6c 65 2d 62 72 |forward-|angle-br|
|00000530| 61 63 6b 65 74 73 20 20 | 20 6e 61 6d 65 3c 62 61 |ackets  | name<ba|
|00000540| 72 2f 6d 75 6d 62 6c 65 | 3e 20 20 6e 61 6d 65 3c |r/mumble|>  name<|
|00000550| 71 75 75 78 2f 6d 75 6d | 62 6c 65 3e 5c 6e 20 20 |quux/mum|ble>\n  |
|00000560| 6e 69 6c 20 20 20 20 20 | 20 20 20 20 20 20 20 6e |nil     |       n|
|00000570| 61 6d 65 20 20 6e 61 6d | 65 3c 32 3e 22 20 3a 74 |ame  nam|e<2>" :t|
|00000580| 79 70 65 20 27 28 72 61 | 64 69 6f 20 28 63 6f 6e |ype '(ra|dio (con|
|00000590| 73 74 20 66 6f 72 77 61 | 72 64 29 20 28 63 6f 6e |st forwa|rd) (con|
|000005a0| 73 74 20 72 65 76 65 72 | 73 65 29 20 28 63 6f 6e |st rever|se) (con|
|000005b0| 73 74 20 70 6f 73 74 2d | 66 6f 72 77 61 72 64 29 |st post-|forward)|
|000005c0| 20 28 63 6f 6e 73 74 20 | 70 6f 73 74 2d 66 6f 72 | (const |post-for|
|000005d0| 77 61 72 64 2d 61 6e 67 | 6c 65 2d 62 72 61 63 6b |ward-ang|le-brack|
|000005e0| 65 74 73 29 20 28 63 6f | 6e 73 74 20 6e 69 6c 29 |ets) (co|nst nil)|
|000005f0| 29 20 3a 72 65 71 75 69 | 72 65 20 27 75 6e 69 71 |) :requi|re 'uniq|
|00000600| 75 69 66 79 20 3a 67 72 | 6f 75 70 20 27 75 6e 69 |uify :gr|oup 'uni|
|00000610| 71 75 69 66 79 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |quify).(|custom-d|
|00000620| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000630| 27 75 6e 69 71 75 69 66 | 79 2d 61 66 74 65 72 2d |'uniquif|y-after-|
|00000640| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 2d 70 20 27 6e |kill-buf|fer-p 'n|
|00000650| 69 6c 20 22 2a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |il "*If |non-nil,|
|00000660| 20 72 65 72 61 74 69 6f | 6e 61 6c 69 7a 65 20 62 | reratio|nalize b|
|00000670| 75 66 66 65 72 20 6e 61 | 6d 65 73 20 61 66 74 65 |uffer na|mes afte|
|00000680| 72 20 61 20 62 75 66 66 | 65 72 20 68 61 73 20 62 |r a buff|er has b|
|00000690| 65 65 6e 20 6b 69 6c 6c | 65 64 2e 5c 6e 54 68 69 |een kill|ed.\nThi|
|000006a0| 73 20 63 61 6e 20 62 65 | 20 64 61 6e 67 65 72 6f |s can be| dangero|
|000006b0| 75 73 20 69 66 20 45 6d | 61 63 73 20 4c 69 73 70 |us if Em|acs Lisp|
|000006c0| 20 63 6f 64 65 20 69 73 | 20 6b 65 65 70 69 6e 67 | code is| keeping|
|000006d0| 20 74 72 61 63 6b 20 6f | 66 20 62 75 66 66 65 72 | track o|f buffer|
|000006e0| 73 20 62 79 20 74 68 65 | 69 72 5c 6e 6e 61 6d 65 |s by the|ir\nname|
|000006f0| 73 20 28 72 61 74 68 65 | 72 20 74 68 61 6e 20 6b |s (rathe|r than k|
|00000700| 65 65 70 69 6e 67 20 70 | 6f 69 6e 74 65 72 73 20 |eeping p|ointers |
|00000710| 74 6f 20 74 68 65 20 62 | 75 66 66 65 72 73 20 74 |to the b|uffers t|
|00000720| 68 65 6d 73 65 6c 76 65 | 73 29 2e 22 20 3a 74 79 |hemselve|s)." :ty|
|00000730| 70 65 20 27 62 6f 6f 6c | 65 61 6e 20 3a 67 72 6f |pe 'bool|ean :gro|
|00000740| 75 70 20 27 75 6e 69 71 | 75 69 66 79 29 0a 28 63 |up 'uniq|uify).(c|
|00000750| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00000760| 72 69 61 62 6c 65 20 27 | 75 6e 69 71 75 69 66 79 |riable '|uniquify|
|00000770| 2d 61 73 6b 2d 61 62 6f | 75 74 2d 62 75 66 66 65 |-ask-abo|ut-buffe|
|00000780| 72 2d 6e 61 6d 65 73 2d | 70 20 27 6e 69 6c 20 22 |r-names-|p 'nil "|
|00000790| 2a 49 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 70 65 72 |*If non-|nil, per|
|000007a0| 6d 69 74 20 75 73 65 72 | 20 74 6f 20 63 68 6f 6f |mit user| to choo|
|000007b0| 73 65 20 6e 61 6d 65 73 | 20 66 6f 72 20 62 75 66 |se names| for buf|
|000007c0| 66 65 72 73 20 77 69 74 | 68 20 73 61 6d 65 20 62 |fers wit|h same b|
|000007d0| 61 73 65 20 66 69 6c 65 | 2e 5c 6e 49 66 20 74 68 |ase file|.\nIf th|
|000007e0| 65 20 75 73 65 72 20 63 | 68 6f 6f 73 65 73 20 74 |e user c|hooses t|
|000007f0| 6f 20 6e 61 6d 65 20 61 | 20 62 75 66 66 65 72 2c |o name a| buffer,|
|00000800| 20 75 6e 69 71 75 69 66 | 69 63 61 74 69 6f 6e 20 | uniquif|ication |
|00000810| 69 73 20 70 72 65 65 6d | 70 74 65 64 20 61 6e 64 |is preem|pted and|
|00000820| 20 6e 6f 5c 6e 6f 74 68 | 65 72 20 62 75 66 66 65 | no\noth|er buffe|
|00000830| 72 20 6e 61 6d 65 73 20 | 61 72 65 20 63 68 61 6e |r names |are chan|
|00000840| 67 65 64 2e 22 20 3a 74 | 79 70 65 20 27 62 6f 6f |ged." :t|ype 'boo|
|00000850| 6c 65 61 6e 20 3a 67 72 | 6f 75 70 20 27 75 6e 69 |lean :gr|oup 'uni|
|00000860| 71 75 69 66 79 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |quify).(|custom-d|
|00000870| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000880| 27 75 6e 69 71 75 69 66 | 79 2d 6d 69 6e 2d 64 69 |'uniquif|y-min-di|
|00000890| 72 2d 63 6f 6e 74 65 6e | 74 20 27 30 20 22 2a 4d |r-conten|t '0 "*M|
|000008a0| 69 6e 69 6d 75 6d 20 70 | 61 72 74 73 20 6f 66 20 |inimum p|arts of |
|000008b0| 64 69 72 65 63 74 6f 72 | 79 20 6e 61 6d 65 20 69 |director|y name i|
|000008c0| 6e 63 6c 75 64 65 64 20 | 69 6e 20 62 75 66 66 65 |ncluded |in buffe|
|000008d0| 72 20 6e 61 6d 65 2e 22 | 20 3a 74 79 70 65 20 27 |r name."| :type '|
|000008e0| 69 6e 74 65 67 65 72 20 | 3a 67 72 6f 75 70 20 27 |integer |:group '|
|000008f0| 75 6e 69 71 75 69 66 79 | 29 0a 28 63 75 73 74 6f |uniquify|).(custo|
|00000900| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00000910| 6c 65 20 27 75 6e 69 71 | 75 69 66 79 2d 73 65 70 |le 'uniq|uify-sep|
|00000920| 61 72 61 74 6f 72 20 27 | 6e 69 6c 20 22 2a 53 74 |arator '|nil "*St|
|00000930| 72 69 6e 67 20 73 65 70 | 61 72 61 74 6f 72 20 66 |ring sep|arator f|
|00000940| 6f 72 20 62 75 66 66 65 | 72 20 6e 61 6d 65 20 63 |or buffe|r name c|
|00000950| 6f 6d 70 6f 6e 65 6e 74 | 73 2e 5c 6e 57 68 65 6e |omponent|s.\nWhen|
|00000960| 20 60 75 6e 69 71 75 69 | 66 79 2d 62 75 66 66 65 | `uniqui|fy-buffe|
|00000970| 72 2d 6e 61 6d 65 2d 73 | 74 79 6c 65 27 20 69 73 |r-name-s|tyle' is|
|00000980| 20 60 70 6f 73 74 2d 66 | 6f 72 77 61 72 64 27 2c | `post-f|orward',|
|00000990| 20 73 65 70 61 72 61 74 | 65 73 5c 6e 62 61 73 65 | separat|es\nbase|
|000009a0| 20 66 69 6c 65 20 6e 61 | 6d 65 20 66 72 6f 6d 20 | file na|me from |
|000009b0| 64 69 72 65 63 74 6f 72 | 79 20 70 61 72 74 20 69 |director|y part i|
|000009c0| 6e 20 62 75 66 66 65 72 | 20 6e 61 6d 65 73 20 28 |n buffer| names (|
|000009d0| 64 65 66 61 75 6c 74 20 | 5c 22 7c 5c 22 29 2e 5c |default |\"|\").\|
|000009e0| 6e 57 68 65 6e 20 60 75 | 6e 69 71 75 69 66 79 2d |nWhen `u|niquify-|
|000009f0| 62 75 66 66 65 72 2d 6e | 61 6d 65 2d 73 74 79 6c |buffer-n|ame-styl|
|00000a00| 65 27 20 69 73 20 60 72 | 65 76 65 72 73 65 27 2c |e' is `r|everse',|
|00000a10| 20 73 65 70 61 72 61 74 | 65 73 20 61 6c 6c 5c 6e | separat|es all\n|
|00000a20| 66 69 6c 65 20 6e 61 6d | 65 20 63 6f 6d 70 6f 6e |file nam|e compon|
|00000a30| 65 6e 74 73 20 28 64 65 | 66 61 75 6c 74 20 5c 22 |ents (de|fault \"|
|00000a40| 5c 5c 5c 22 29 2e 22 20 | 3a 74 79 70 65 20 27 28 |\\\")." |:type '(|
|00000a50| 63 68 6f 69 63 65 20 28 | 63 6f 6e 73 74 20 6e 69 |choice (|const ni|
|00000a60| 6c 29 20 73 74 72 69 6e | 67 29 20 3a 67 72 6f 75 |l) strin|g) :grou|
|00000a70| 70 20 27 75 6e 69 71 75 | 69 66 79 29 0a 28 63 75 |p 'uniqu|ify).(cu|
|00000a80| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00000a90| 69 61 62 6c 65 20 27 75 | 6e 69 71 75 69 66 79 2d |iable 'u|niquify-|
|00000aa0| 74 72 61 69 6c 69 6e 67 | 2d 73 65 70 61 72 61 74 |trailing|-separat|
|00000ab0| 6f 72 2d 70 20 27 6e 69 | 6c 20 22 2a 49 66 20 6e |or-p 'ni|l "*If n|
|00000ac0| 6f 6e 2d 6e 69 6c 2c 20 | 61 64 64 20 61 20 66 69 |on-nil, |add a fi|
|00000ad0| 6c 65 20 6e 61 6d 65 20 | 73 65 70 61 72 61 74 6f |le name |separato|
|00000ae0| 72 20 74 6f 20 64 69 72 | 65 64 20 62 75 66 66 65 |r to dir|ed buffe|
|00000af0| 72 20 6e 61 6d 65 73 2e | 5c 6e 49 66 20 60 75 6e |r names.|\nIf `un|
|00000b00| 69 71 75 69 66 79 2d 62 | 75 66 66 65 72 2d 6e 61 |iquify-b|uffer-na|
|00000b10| 6d 65 2d 73 74 79 6c 65 | 27 20 69 73 20 60 66 6f |me-style|' is `fo|
|00000b20| 72 77 61 72 64 27 2c 20 | 61 64 64 20 74 68 65 20 |rward', |add the |
|00000b30| 73 65 70 61 72 61 74 6f | 72 20 61 74 20 74 68 65 |separato|r at the|
|00000b40| 20 65 6e 64 3b 5c 6e 69 | 66 20 69 74 20 69 73 20 | end;\ni|f it is |
|00000b50| 60 72 65 76 65 72 73 65 | 27 2c 20 61 64 64 20 74 |`reverse|', add t|
|00000b60| 68 65 20 73 65 70 61 72 | 61 74 6f 72 20 61 74 20 |he separ|ator at |
|00000b70| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 3b 20 6f |the begi|nning; o|
|00000b80| 74 68 65 72 77 69 73 65 | 2c 20 74 68 69 73 5c 6e |therwise|, this\n|
|00000b90| 76 61 72 69 61 62 6c 65 | 20 69 73 20 69 67 6e 6f |variable| is igno|
|00000ba0| 72 65 64 2e 22 20 3a 74 | 79 70 65 20 27 62 6f 6f |red." :t|ype 'boo|
|00000bb0| 6c 65 61 6e 20 3a 67 72 | 6f 75 70 20 27 75 6e 69 |lean :gr|oup 'uni|
|00000bc0| 71 75 69 66 79 29 0a 28 | 64 65 66 61 6c 69 61 73 |quify).(|defalias|
|00000bd0| 20 27 75 6e 69 71 75 69 | 66 79 2d 70 75 73 68 20 | 'uniqui|fy-push |
|00000be0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 69 74 65 |'(macro |. #[(ite|
|00000bf0| 6d 20 6c 69 73 74 29 20 | 22 c0 09 c2 0b 09 45 45 |m list) |".....EE|
|00000c00| 87 22 20 5b 73 65 74 71 | 20 6c 69 73 74 20 63 6f |." [setq| list co|
|00000c10| 6e 73 20 69 74 65 6d 5d | 20 35 5d 29 29 0a 28 64 |ns item]| 5])).(d|
|00000c20| 65 66 61 6c 69 61 73 20 | 27 75 6e 69 71 75 69 66 |efalias |'uniquif|
|00000c30| 79 2d 66 69 78 2d 6c 69 | 73 74 2d 62 61 73 65 20 |y-fix-li|st-base |
|00000c40| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 61 29 20 |'(macro |. #[(a) |
|00000c50| 22 c0 09 44 87 22 20 5b | 63 61 72 20 61 5d 20 32 |"..D." [|car a] 2|
|00000c60| 5d 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 75 |])).(def|alias 'u|
|00000c70| 6e 69 71 75 69 66 79 2d | 66 69 78 2d 6c 69 73 74 |niquify-|fix-list|
|00000c80| 2d 66 69 6c 65 6e 61 6d | 65 20 27 28 6d 61 63 72 |-filenam|e '(macr|
|00000c90| 6f 20 2e 20 23 5b 28 61 | 29 20 22 c0 c1 5c 6e 44 |o . #[(a|) "..\nD|
|00000ca0| 44 87 22 20 5b 63 61 72 | 20 63 64 72 20 61 5d 20 |D." [car| cdr a] |
|00000cb0| 33 5d 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |3])).(de|falias '|
|00000cc0| 75 6e 69 71 75 69 66 79 | 2d 66 69 78 2d 6c 69 73 |uniquify|-fix-lis|
|00000cd0| 74 2d 62 75 66 66 65 72 | 20 27 28 6d 61 63 72 6f |t-buffer| '(macro|
|00000ce0| 20 2e 20 23 5b 28 61 29 | 20 22 c0 c1 89 5c 6e 44 | . #[(a)| "...\nD|
|00000cf0| 44 44 87 22 20 5b 63 61 | 72 20 63 64 72 20 61 5d |DD." [ca|r cdr a]|
|00000d00| 20 34 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 4])).(d|efalias |
|00000d10| 27 75 6e 69 71 75 69 66 | 79 2d 63 61 64 64 64 72 |'uniquif|y-cadddr|
|00000d20| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 61 29 | '(macro| . #[(a)|
|00000d30| 20 22 c0 c1 89 89 5c 6e | 44 44 44 44 87 22 20 5b | "....\n|DDDD." [|
|00000d40| 63 61 72 20 63 64 72 20 | 61 5d 20 35 5d 29 29 0a |car cdr |a] 5])).|
|00000d50| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ac |(byte-co|de "..!.|
|00000d60| 82 c2 11 c1 0b 42 13 c0 | c4 21 ac 82 c2 14 c4 0b |.....B..|.!......|
|00000d70| 42 13 c2 87 22 20 5b 62 | 6f 75 6e 64 70 20 75 6e |B..." [b|oundp un|
|00000d80| 69 71 75 69 66 79 2d 6e | 6f 6e 2d 66 69 6c 65 2d |iquify-n|on-file-|
|00000d90| 62 75 66 66 65 72 2d 6e | 61 6d 65 73 20 6e 69 6c |buffer-n|ames nil|
|00000da0| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000db0| 73 74 20 75 6e 69 71 75 | 69 66 79 2d 70 6f 73 73 |st uniqu|ify-poss|
|00000dc0| 69 62 6c 79 2d 72 65 73 | 6f 6c 76 61 62 6c 65 5d |ibly-res|olvable]|
|00000dd0| 20 32 29 0a 23 40 32 30 | 32 20 4d 61 6b 65 73 20 | 2).#@20|2 Makes |
|00000de0| 66 69 6c 65 20 62 75 66 | 66 65 72 20 6e 61 6d 65 |file buf|fer name|
|00000df0| 73 20 75 6e 69 71 75 65 | 20 62 79 20 61 64 64 69 |s unique| by addi|
|00000e00| 6e 67 20 73 65 67 6d 65 | 6e 74 73 20 66 72 6f 6d |ng segme|nts from|
|00000e10| 20 66 69 6c 65 20 6e 61 | 6d 65 2e 0a 49 66 20 60 | file na|me..If `|
|00000e20| 75 6e 69 71 75 69 66 79 | 2d 6d 69 6e 2d 64 69 72 |uniquify|-min-dir|
|00000e30| 2d 63 6f 6e 74 65 6e 74 | 27 20 3e 20 30 2c 20 61 |-content|' > 0, a|
|00000e40| 6c 77 61 79 73 20 70 75 | 6c 6c 73 20 74 68 61 74 |lways pu|lls that|
|00000e50| 20 6d 61 6e 79 0a 66 69 | 6c 65 20 6e 61 6d 65 20 | many.fi|le name |
|00000e60| 65 6c 65 6d 65 6e 74 73 | 2e 20 20 41 72 67 75 6d |elements|.  Argum|
|00000e70| 65 6e 74 73 20 63 61 75 | 73 65 20 6f 6e 6c 79 20 |ents cau|se only |
|00000e80| 61 20 73 75 62 73 65 74 | 20 6f 66 20 62 75 66 66 |a subset| of buff|
|00000e90| 65 72 73 20 74 6f 20 62 | 65 20 72 65 6e 61 6d 65 |ers to b|e rename|
|00000ea0| 64 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 75 |d...(def|alias 'u|
|00000eb0| 6e 69 71 75 69 66 79 2d | 72 61 74 69 6f 6e 61 6c |niquify-|rational|
|00000ec0| 69 7a 65 2d 66 69 6c 65 | 2d 62 75 66 66 65 72 2d |ize-file|-buffer-|
|00000ed0| 6e 61 6d 65 73 20 23 5b | 28 26 6f 70 74 69 6f 6e |names #[|(&option|
|00000ee0| 61 6c 20 6e 65 77 62 75 | 66 66 69 6c 65 20 6e 65 |al newbu|ffile ne|
|00000ef0| 77 62 75 66 29 20 22 c0 | 89 09 1a 1b 1c c5 20 89 |wbuf) ".|...... .|
|00000f00| 1e 06 ab d6 0e 06 40 89 | 1e 07 0e 08 61 ab 8a 0e |......@.|....a...|
|00000f10| 09 ad 8a ca 0e 09 21 aa | 84 cb 0e 07 21 89 1e 0c |......!.|....!...|
|00000f20| ad 84 cd 0e 0c 21 89 1e | 0e ad 8c 0e 09 3f ae 87 |.....!..|.....?..|
|00000f30| 0e 0e cd 0e 09 21 6b 89 | 1e 0f ab 8d 0e 0e 0e 0c |.....!k.|........|
|00000f40| 0e 07 c0 46 0c 42 14 aa | 88 d0 0e 07 21 43 0b 42 |...F.B..|....!C.B|
|00000f50| 13 2c 0e 06 41 89 16 06 | ac 2a 29 d1 0c d2 5c 22 |.,..A...|.*)...\"|
|00000f60| 14 d3 0c 5c 6e 5c 22 88 | d4 d5 0c 5c 22 2b 87 22 |...\n\".|...\"+."|
|00000f70| 20 5b 6e 69 6c 20 75 6e | 69 71 75 69 66 79 2d 6d | [nil un|iquify-m|
|00000f80| 69 6e 2d 64 69 72 2d 63 | 6f 6e 74 65 6e 74 20 64 |in-dir-c|ontent d|
|00000f90| 65 70 74 68 20 75 6e 69 | 71 75 69 66 79 2d 6e 6f |epth uni|quify-no|
|00000fa0| 6e 2d 66 69 6c 65 2d 62 | 75 66 66 65 72 2d 6e 61 |n-file-b|uffer-na|
|00000fb0| 6d 65 73 20 66 69 78 2d | 6c 69 73 74 20 62 75 66 |mes fix-|list buf|
|00000fc0| 66 65 72 2d 6c 69 73 74 | 20 62 75 66 66 65 72 73 |fer-list| buffers|
|00000fd0| 20 62 75 66 66 65 72 20 | 6e 65 77 62 75 66 20 6e | buffer |newbuf n|
|00000fe0| 65 77 62 75 66 66 69 6c | 65 20 65 78 70 61 6e 64 |ewbuffil|e expand|
|00000ff0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 75 6e 69 71 75 |-file-na|me uniqu|
|00001000| 69 66 79 2d 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |ify-buff|er-file-|
|00001010| 6e 61 6d 65 20 62 66 6e | 20 66 69 6c 65 2d 6e 61 |name bfn| file-na|
|00001020| 6d 65 2d 6e 6f 6e 64 69 | 72 65 63 74 6f 72 79 20 |me-nondi|rectory |
|00001030| 72 61 77 6e 61 6d 65 20 | 64 65 73 65 72 76 69 6e |rawname |deservin|
|00001040| 67 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 73 6f |g buffer|-name so|
|00001050| 72 74 20 75 6e 69 71 75 | 69 66 79 2d 66 69 78 2d |rt uniqu|ify-fix-|
|00001060| 6c 69 73 74 2d 66 69 6c | 65 6e 61 6d 65 2d 6c 65 |list-fil|ename-le|
|00001070| 73 73 70 20 75 6e 69 71 | 75 69 66 79 2d 72 61 74 |ssp uniq|uify-rat|
|00001080| 69 6f 6e 61 6c 69 7a 65 | 2d 61 2d 6c 69 73 74 20 |ionalize|-a-list |
|00001090| 6d 61 70 63 61 72 20 75 | 6e 69 71 75 69 66 79 2d |mapcar u|niquify-|
|000010a0| 75 6e 72 61 74 69 6f 6e | 61 6c 69 7a 65 64 2d 62 |unration|alized-b|
|000010b0| 75 66 66 65 72 5d 20 35 | 20 28 23 24 20 2e 20 33 |uffer] 5| (#$ . 3|
|000010c0| 35 34 36 29 20 6e 69 6c | 5d 29 0a 23 40 31 33 38 |546) nil|]).#@138|
|000010d0| 20 52 65 74 75 72 6e 20 | 6e 61 6d 65 20 6f 66 20 | Return |name of |
|000010e0| 66 69 6c 65 20 42 55 46 | 46 45 52 20 69 73 20 76 |file BUF|FER is v|
|000010f0| 69 73 69 74 69 6e 67 2c | 20 6f 72 20 6e 69 6c 20 |isiting,| or nil |
|00001100| 69 66 20 6e 6f 6e 65 2e | 0a 57 6f 72 6b 73 20 6f |if none.|.Works o|
|00001110| 6e 20 64 69 72 65 64 20 | 62 75 66 66 65 72 73 20 |n dired |buffers |
|00001120| 61 73 20 77 65 6c 6c 20 | 61 73 20 6f 72 64 69 6e |as well |as ordin|
|00001130| 61 72 79 20 66 69 6c 65 | 2d 76 69 73 69 74 69 6e |ary file|-visitin|
|00001140| 67 20 62 75 66 66 65 72 | 73 2c 0a 62 75 74 20 6e |g buffer|s,.but n|
|00001150| 6f 20 6f 74 68 65 72 73 | 2e 1f 0a 28 64 65 66 61 |o others|...(defa|
|00001160| 6c 69 61 73 20 27 75 6e | 69 71 75 69 66 79 2d 62 |lias 'un|iquify-b|
|00001170| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|00001180| 23 5b 28 62 75 66 66 65 | 72 29 20 22 c0 09 21 ae |#[(buffe|r) "..!.|
|00001190| ac c2 c3 21 ad a7 8a 09 | 71 88 0c c5 61 ad 9d c6 |...!....|q...a...|
|000011a0| c7 21 ab 84 0e 07 aa 94 | 0e 08 ad 90 c9 ca 0e 08 |.!......|........|
|000011b0| 3a ab 85 0e 08 40 aa 82 | 0e 08 21 21 29 87 22 20 |:....@..|..!!)." |
|000011c0| 5b 62 75 66 66 65 72 2d | 66 69 6c 65 2d 6e 61 6d |[buffer-|file-nam|
|000011d0| 65 20 62 75 66 66 65 72 | 20 66 65 61 74 75 72 65 |e buffer| feature|
|000011e0| 70 20 64 69 72 65 64 20 | 6d 61 6a 6f 72 2d 6d 6f |p dired |major-mo|
|000011f0| 64 65 20 64 69 72 65 64 | 2d 6d 6f 64 65 20 62 6f |de dired|-mode bo|
|00001200| 75 6e 64 70 20 6c 69 73 | 74 2d 62 75 66 66 65 72 |undp lis|t-buffer|
|00001210| 73 2d 64 69 72 65 63 74 | 6f 72 79 20 64 69 72 65 |s-direct|ory dire|
|00001220| 64 2d 64 69 72 65 63 74 | 6f 72 79 20 65 78 70 61 |d-direct|ory expa|
|00001230| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 64 69 72 |nd-file-|name dir|
|00001240| 65 63 74 6f 72 79 2d 66 | 69 6c 65 2d 6e 61 6d 65 |ectory-f|ile-name|
|00001250| 5d 20 33 20 28 23 24 20 | 2e 20 34 33 30 35 29 5d |] 3 (#$ |. 4305)]|
|00001260| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 6e 69 |).(defal|ias 'uni|
|00001270| 71 75 69 66 79 2d 66 69 | 78 2d 6c 69 73 74 2d 66 |quify-fi|x-list-f|
|00001280| 69 6c 65 6e 61 6d 65 2d | 6c 65 73 73 70 20 23 5b |ilename-|lessp #[|
|00001290| 28 66 69 78 6c 69 73 74 | 31 20 66 69 78 6c 69 73 |(fixlist|1 fixlis|
|000012a0| 74 32 29 20 22 c0 09 41 | 40 5c 6e 41 40 5c 22 87 |t2) "..A|@\nA@\".|
|000012b0| 22 20 5b 75 6e 69 71 75 | 69 66 79 2d 66 69 6c 65 |" [uniqu|ify-file|
|000012c0| 6e 61 6d 65 2d 6c 65 73 | 73 70 20 66 69 78 6c 69 |name-les|sp fixli|
|000012d0| 73 74 31 20 66 69 78 6c | 69 73 74 32 5d 20 33 5d |st1 fixl|ist2] 3]|
|000012e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 6e 69 |).(defal|ias 'uni|
|000012f0| 71 75 69 66 79 2d 66 69 | 6c 65 6e 61 6d 65 2d 6c |quify-fi|lename-l|
|00001300| 65 73 73 70 20 23 5b 28 | 73 31 20 73 32 29 20 22 |essp #[(|s1 s2) "|
|00001310| c0 09 21 c0 5c 6e 21 1b | 1c 0b c5 6b 3f ad b0 0c |..!.\n!.|...k?...|
|00001320| 0b 99 ae ab 0c 0b 6b ad | a6 c6 09 21 c6 5c 6e 21 |......k.|...!.\n!|
|00001330| 1e 07 1e 08 0e 07 47 c9 | 58 3f ad 93 0e 08 47 c9 |......G.|X?....G.|
|00001340| 58 ae 8c ca 0e 08 cb cc | 4f 0e 07 cb cc 4f 5c 22 |X.......|O....O\"|
|00001350| 2a 2a 87 22 20 5b 66 69 | 6c 65 2d 6e 61 6d 65 2d |**." [fi|le-name-|
|00001360| 6e 6f 6e 64 69 72 65 63 | 74 6f 72 79 20 73 31 20 |nondirec|tory s1 |
|00001370| 73 32 20 73 32 66 20 73 | 31 66 20 22 22 20 66 69 |s2 s2f s|1f "" fi|
|00001380| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|00001390| 79 20 73 32 64 20 73 31 | 64 20 31 20 75 6e 69 71 |y s2d s1|d 1 uniq|
|000013a0| 75 69 66 79 2d 66 69 6c | 65 6e 61 6d 65 2d 6c 65 |uify-fil|ename-le|
|000013b0| 73 73 70 20 30 20 2d 31 | 5d 20 35 5d 29 0a 28 64 |ssp 0 -1|] 5]).(d|
|000013c0| 65 66 61 6c 69 61 73 20 | 27 75 6e 69 71 75 69 66 |efalias |'uniquif|
|000013d0| 79 2d 75 6e 72 61 74 69 | 6f 6e 61 6c 69 7a 65 64 |y-unrati|onalized|
|000013e0| 2d 62 75 66 66 65 72 20 | 23 5b 28 69 74 65 6d 29 |-buffer |#[(item)|
|000013f0| 20 22 08 41 41 41 40 87 | 22 20 5b 69 74 65 6d 5d | ".AAA@.|" [item]|
|00001400| 20 31 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 1]).(de|falias '|
|00001410| 75 6e 69 71 75 69 66 79 | 2d 72 61 74 69 6f 6e 61 |uniquify|-rationa|
|00001420| 6c 69 7a 65 2d 61 2d 6c | 69 73 74 20 23 5b 28 66 |lize-a-l|ist #[(f|
|00001430| 69 78 2d 6c 69 73 74 20 | 64 65 70 74 68 29 20 22 |ix-list |depth) "|
|00001440| c0 c1 c0 89 1a 1b 1c 1d | 0e 06 ab aa 0e 06 40 1e |........|......@.|
|00001450| 07 c8 0e 07 0e 09 5c 22 | 89 13 0c 6b ac 89 ca 0d |......\"|...k....|
|00001460| 0c 0e 09 23 88 c0 15 0e | 07 0d 42 15 0b 14 29 0e |...#....|..B...).|
|00001470| 06 41 89 16 06 ac 56 ca | 0d 0c 0e 09 23 2c 87 22 |.A....V.|....#,."|
|00001480| 20 5b 6e 69 6c 20 22 22 | 20 75 6e 69 71 75 69 66 | [nil ""| uniquif|
|00001490| 79 2d 70 6f 73 73 69 62 | 6c 79 2d 72 65 73 6f 6c |y-possib|ly-resol|
|000014a0| 76 61 62 6c 65 20 70 72 | 6f 70 6f 73 65 64 2d 6e |vable pr|oposed-n|
|000014b0| 61 6d 65 20 6f 6c 64 2d | 6e 61 6d 65 20 63 6f 6e |ame old-|name con|
|000014c0| 66 6c 69 63 74 69 6e 67 | 2d 73 75 62 6c 69 73 74 |flicting|-sublist|
|000014d0| 20 66 69 78 2d 6c 69 73 | 74 20 69 74 65 6d 20 75 | fix-lis|t item u|
|000014e0| 6e 69 71 75 69 66 79 2d | 67 65 74 2d 70 72 6f 70 |niquify-|get-prop|
|000014f0| 6f 73 65 64 2d 6e 61 6d | 65 20 64 65 70 74 68 20 |osed-nam|e depth |
|00001500| 75 6e 69 71 75 69 66 79 | 2d 72 61 74 69 6f 6e 61 |uniquify|-rationa|
|00001510| 6c 69 7a 65 2d 63 6f 6e | 66 6c 69 63 74 69 6e 67 |lize-con|flicting|
|00001520| 2d 73 75 62 6c 69 73 74 | 5d 20 35 5d 29 0a 28 64 |-sublist|] 5]).(d|
|00001530| 65 66 61 6c 69 61 73 20 | 27 75 6e 69 71 75 69 66 |efalias |'uniquif|
|00001540| 79 2d 67 65 74 2d 70 72 | 6f 70 6f 73 65 64 2d 6e |y-get-pr|oposed-n|
|00001550| 61 6d 65 20 23 5b 28 69 | 74 65 6d 20 64 65 70 74 |ame #[(i|tem dept|
|00001560| 68 29 20 22 c0 c1 5c 6e | 0b 40 0b 41 40 1c 1d 1e |h) "..\n|.@.A@...|
|00001570| 06 1e 07 1e 08 0e 06 c9 | 56 ab af ca cb cc 0e 07 |........|V.......|
|00001580| 21 cc 0d 21 cd 52 0c 5c | 22 89 16 08 ab 9d 0c 0e |!..!.R.\|".......|
|00001590| 08 c9 55 ab 83 c9 aa 83 | 0e 08 54 0c 47 0d 47 5a |..U.....|..T.G.GZ|
|000015a0| 4f 16 07 0e 06 53 89 16 | 06 aa 4d 0e 06 c9 55 ab |O....S..|..M...U.|
|000015b0| 83 ce 16 0f 0e 10 ab a4 | d1 0c 21 ab 9f 0d c1 98 |........|..!.....|
|000015c0| ac 9a 0e 12 d3 61 ab 86 | 0d d4 50 15 aa 8e 0e 12 |.....a..|..P.....|
|000015d0| d5 61 ab 88 0e 16 ae 81 | d7 0d 50 15 0e 07 c1 98 |.a......|..P.....|
|000015e0| ac 96 0e 12 d8 61 ac 86 | 0e 12 d9 61 ab 8a 0e 07 |.....a..|...a....|
|000015f0| c9 0e 07 47 53 4f 16 07 | 0e 07 c1 98 ab 83 0d aa |...GSO..|........|
|00001600| c7 0d c1 98 ab 84 0e 07 | aa be 0e 12 d3 61 ab 86 |........|.....a..|
|00001610| 0e 07 0d 50 aa b2 0e 12 | d5 61 ab 88 0d da 0e 07 |...P....|.a......|
|00001620| 21 50 aa a4 0e 12 d8 61 | ab 8b 0d 0e 16 ae 81 db |!P.....a|........|
|00001630| 0e 07 51 aa 93 0e 12 d9 | 61 ab 88 0d dc 0e 07 dd |..Q.....|a.......|
|00001640| 52 aa 85 de df 0e 12 5c | 22 2d 87 22 20 5b 6e 69 |R......\|"-." [ni|
|00001650| 6c 20 22 22 20 64 65 70 | 74 68 20 69 74 65 6d 20 |l "" dep|th item |
|00001660| 66 6e 20 62 61 73 65 20 | 6e 20 65 78 74 72 61 2d |fn base |n extra-|
|00001670| 73 74 72 69 6e 67 20 69 | 6e 64 65 78 20 30 20 73 |string i|ndex 0 s|
|00001680| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5c 5c 28 |tring-ma|tch "\\(|
|00001690| 5e 5c 5c 7c 2f 5b 5e 2f | 5d 2a 5c 5c 29 2f 22 20 |^\\|/[^/|]*\\)/" |
|000016a0| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 22 5c 5c |regexp-q|uote "\\|
|000016b0| 27 22 20 74 20 75 6e 69 | 71 75 69 66 79 2d 70 6f |'" t uni|quify-po|
|000016c0| 73 73 69 62 6c 79 2d 72 | 65 73 6f 6c 76 61 62 6c |ssibly-r|esolvabl|
|000016d0| 65 20 75 6e 69 71 75 69 | 66 79 2d 74 72 61 69 6c |e uniqui|fy-trail|
|000016e0| 69 6e 67 2d 73 65 70 61 | 72 61 74 6f 72 2d 70 20 |ing-sepa|rator-p |
|000016f0| 66 69 6c 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |file-dir|ectory-p|
|00001700| 20 75 6e 69 71 75 69 66 | 79 2d 62 75 66 66 65 72 | uniquif|y-buffer|
|00001710| 2d 6e 61 6d 65 2d 73 74 | 79 6c 65 20 66 6f 72 77 |-name-st|yle forw|
|00001720| 61 72 64 20 22 2f 22 20 | 72 65 76 65 72 73 65 20 |ard "/" |reverse |
|00001730| 75 6e 69 71 75 69 66 79 | 2d 73 65 70 61 72 61 74 |uniquify|-separat|
|00001740| 6f 72 20 22 5c 5c 22 20 | 70 6f 73 74 2d 66 6f 72 |or "\\" |post-for|
|00001750| 77 61 72 64 20 70 6f 73 | 74 2d 66 6f 72 77 61 72 |ward pos|t-forwar|
|00001760| 64 2d 61 6e 67 6c 65 2d | 62 72 61 63 6b 65 74 73 |d-angle-|brackets|
|00001770| 20 75 6e 69 71 75 69 66 | 79 2d 72 65 76 65 72 73 | uniquif|y-revers|
|00001780| 65 2d 63 6f 6d 70 6f 6e | 65 6e 74 73 20 22 7c 22 |e-compon|ents "|"|
|00001790| 20 22 3c 22 20 22 3e 22 | 20 65 72 72 6f 72 20 22 | "<" ">"| error "|
|000017a0| 42 61 64 20 76 61 6c 75 | 65 20 66 6f 72 20 75 6e |Bad valu|e for un|
|000017b0| 69 71 75 69 66 79 2d 62 | 75 66 66 65 72 2d 6e 61 |iquify-b|uffer-na|
|000017c0| 6d 65 2d 73 74 79 6c 65 | 3a 20 25 73 22 5d 20 36 |me-style|: %s"] 6|
|000017d0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 6e |]).(defa|lias 'un|
|000017e0| 69 71 75 69 66 79 2d 72 | 61 74 69 6f 6e 61 6c 69 |iquify-r|ationali|
|000017f0| 7a 65 2d 63 6f 6e 66 6c | 69 63 74 69 6e 67 2d 73 |ze-confl|icting-s|
|00001800| 75 62 6c 69 73 74 20 23 | 5b 28 63 6f 6e 66 6c 69 |ublist #|[(confli|
|00001810| 63 74 69 6e 67 2d 73 75 | 62 6c 69 73 74 20 6f 6c |cting-su|blist ol|
|00001820| 64 2d 6e 61 6d 65 20 64 | 65 70 74 68 29 20 22 08 |d-name d|epth) ".|
|00001830| 3f ae a2 08 41 ac 94 c1 | 5c 6e 0b 5c 22 ac 8e 5c |?...A...|\n.\"..\|
|00001840| 6e c4 98 ac 87 c5 08 40 | 5c 6e 5c 22 ae 8c c6 87 |n......@|\n\"....|
|00001850| 0e 07 ad 86 c8 08 0e 09 | 54 5c 22 87 22 20 5b 63 |........|T\"." [c|
|00001860| 6f 6e 66 6c 69 63 74 69 | 6e 67 2d 73 75 62 6c 69 |onflicti|ng-subli|
|00001870| 73 74 20 61 73 73 6f 63 | 20 6f 6c 64 2d 6e 61 6d |st assoc| old-nam|
|00001880| 65 20 75 6e 69 71 75 69 | 66 79 2d 6e 6f 6e 2d 66 |e uniqui|fy-non-f|
|00001890| 69 6c 65 2d 62 75 66 66 | 65 72 2d 6e 61 6d 65 73 |ile-buff|er-names|
|000018a0| 20 22 22 20 75 6e 69 71 | 75 69 66 79 2d 72 65 6e | "" uniq|uify-ren|
|000018b0| 61 6d 65 2d 62 75 66 66 | 65 72 20 74 20 75 6e 69 |ame-buff|er t uni|
|000018c0| 71 75 69 66 79 2d 70 6f | 73 73 69 62 6c 79 2d 72 |quify-po|ssibly-r|
|000018d0| 65 73 6f 6c 76 61 62 6c | 65 20 75 6e 69 71 75 69 |esolvabl|e uniqui|
|000018e0| 66 79 2d 72 61 74 69 6f | 6e 61 6c 69 7a 65 2d 61 |fy-ratio|nalize-a|
|000018f0| 2d 6c 69 73 74 20 64 65 | 70 74 68 5d 20 33 5d 29 |-list de|pth] 3])|
|00001900| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 75 6e 69 71 |.(defali|as 'uniq|
|00001910| 75 69 66 79 2d 72 65 6e | 61 6d 65 2d 62 75 66 66 |uify-ren|ame-buff|
|00001920| 65 72 20 23 5b 28 69 74 | 65 6d 20 6e 65 77 6e 61 |er #[(it|em newna|
|00001930| 6d 65 29 20 22 08 41 41 | 40 19 5c 6e c3 09 21 6b |me) ".AA|@.\n..!k|
|00001940| ac 91 70 c4 1d 1e 06 09 | 71 88 c7 5c 6e 21 88 0e |..p.....|q..\n!..|
|00001950| 06 71 88 2a 29 c8 08 9b | c9 a0 87 22 20 5b 69 74 |.q.*)...|..." [it|
|00001960| 65 6d 20 62 75 66 66 65 | 72 20 6e 65 77 6e 61 6d |em buffe|r newnam|
|00001970| 65 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 6e 69 |e buffer|-name ni|
|00001980| 6c 20 75 6e 69 71 75 69 | 66 79 2d 62 75 66 66 65 |l uniqui|fy-buffe|
|00001990| 72 2d 6e 61 6d 65 2d 73 | 74 79 6c 65 20 75 6e 73 |r-name-s|tyle uns|
|000019a0| 65 74 20 72 65 6e 61 6d | 65 2d 62 75 66 66 65 72 |et renam|e-buffer|
|000019b0| 20 33 20 74 5d 20 33 5d | 29 0a 28 64 65 66 61 6c | 3 t] 3]|).(defal|
|000019c0| 69 61 73 20 27 75 6e 69 | 71 75 69 66 79 2d 72 65 |ias 'uni|quify-re|
|000019d0| 76 65 72 73 65 2d 63 6f | 6d 70 6f 6e 65 6e 74 73 |verse-co|mponents|
|000019e0| 20 23 5b 28 69 6e 73 74 | 72 69 6e 67 29 20 22 c0 | #[(inst|ring) ".|
|000019f0| c1 5c 6e 47 0b ae 81 c4 | 1d 1e 06 1e 07 1e 08 0e |.\nG....|........|
|00001a00| 07 0e 06 57 ab b4 5c 6e | 0e 07 48 c9 55 ab 8e 0d |...W..\n|..H.U...|
|00001a10| 0e 08 42 16 08 0e 07 54 | 89 16 07 aa 65 ca cb 5c |..B....T|....e..\|
|00001a20| 6e 0e 07 23 ae 82 0e 06 | 1e 0c 5c 6e 0e 07 0e 0c |n..#....|..\n....|
|00001a30| 4f 0e 08 42 16 08 0e 0c | 16 07 29 aa 45 cd ce 0e |O..B....|..).E...|
|00001a40| 08 5c 22 2c 87 22 20 5b | 6e 69 6c 20 30 20 69 6e |.\",." [|nil 0 in|
|00001a50| 73 74 72 69 6e 67 20 75 | 6e 69 71 75 69 66 79 2d |string u|niquify-|
|00001a60| 73 65 70 61 72 61 74 6f | 72 20 22 5c 5c 22 20 73 |separato|r "\\" s|
|00001a70| 65 70 20 6c 65 6e 20 63 | 75 72 73 6f 72 20 73 6f |ep len c|ursor so|
|00001a80| 66 61 72 20 3f 5c 2f 20 | 73 74 72 69 6e 67 2d 6d |far ?\/ |string-m|
|00001a90| 61 74 63 68 20 22 2f 22 | 20 66 69 72 73 74 2d 73 |atch "/"| first-s|
|00001aa0| 6c 61 73 68 20 61 70 70 | 6c 79 20 63 6f 6e 63 61 |lash app|ly conca|
|00001ab0| 74 5d 20 35 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |t] 5]).(|byte-cod|
|00001ac0| 65 20 22 c0 c1 c2 c3 c4 | 24 88 c5 c1 c4 5c 22 88 |e ".....|$....\".|
|00001ad0| c0 c6 c7 c3 c4 24 88 c5 | c6 c4 5c 22 87 22 20 5b |.....$..|..\"." [|
|00001ae0| 61 64 2d 61 64 64 2d 61 | 64 76 69 63 65 20 72 65 |ad-add-a|dvice re|
|00001af0| 6e 61 6d 65 2d 62 75 66 | 66 65 72 20 28 72 65 6e |name-buf|fer (ren|
|00001b00| 61 6d 65 2d 62 75 66 66 | 65 72 2d 75 6e 69 71 75 |ame-buff|er-uniqu|
|00001b10| 69 66 79 20 6e 69 6c 20 | 74 20 28 61 64 76 69 63 |ify nil |t (advic|
|00001b20| 65 20 6c 61 6d 62 64 61 | 20 6e 69 6c 20 22 55 6e |e lambda| nil "Un|
|00001b30| 69 71 75 69 66 79 20 62 | 75 66 66 65 72 20 6e 61 |iquify b|uffer na|
|00001b40| 6d 65 73 20 77 69 74 68 | 20 70 61 72 74 73 20 6f |mes with| parts o|
|00001b50| 66 20 64 69 72 65 63 74 | 6f 72 79 20 6e 61 6d 65 |f direct|ory name|
|00001b60| 2e 22 20 28 69 66 20 28 | 61 6e 64 20 75 6e 69 71 |." (if (|and uniq|
|00001b70| 75 69 66 79 2d 62 75 66 | 66 65 72 2d 6e 61 6d 65 |uify-buf|fer-name|
|00001b80| 2d 73 74 79 6c 65 20 28 | 61 64 2d 67 65 74 2d 61 |-style (|ad-get-a|
|00001b90| 72 67 20 31 29 29 20 28 | 70 72 6f 67 6e 20 28 69 |rg 1)) (|progn (i|
|00001ba0| 66 20 75 6e 69 71 75 69 | 66 79 2d 61 66 74 65 72 |f uniqui|fy-after|
|00001bb0| 2d 6b 69 6c 6c 2d 62 75 | 66 66 65 72 2d 70 20 28 |-kill-bu|ffer-p (|
|00001bc0| 75 6e 69 71 75 69 66 79 | 2d 72 61 74 69 6f 6e 61 |uniquify|-rationa|
|00001bd0| 6c 69 7a 65 2d 66 69 6c | 65 2d 62 75 66 66 65 72 |lize-fil|e-buffer|
|00001be0| 2d 6e 61 6d 65 73 29 20 | 28 75 6e 69 71 75 69 66 |-names) |(uniquif|
|00001bf0| 79 2d 72 61 74 69 6f 6e | 61 6c 69 7a 65 2d 66 69 |y-ration|alize-fi|
|00001c00| 6c 65 2d 62 75 66 66 65 | 72 2d 6e 61 6d 65 73 20 |le-buffe|r-names |
|00001c10| 28 75 6e 69 71 75 69 66 | 79 2d 62 75 66 66 65 72 |(uniquif|y-buffer|
|00001c20| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 28 63 75 72 72 |-file-na|me (curr|
|00001c30| 65 6e 74 2d 62 75 66 66 | 65 72 29 29 20 28 63 75 |ent-buff|er)) (cu|
|00001c40| 72 72 65 6e 74 2d 62 75 | 66 66 65 72 29 29 29 20 |rrent-bu|ffer))) |
|00001c50| 28 73 65 74 71 20 61 64 | 2d 72 65 74 75 72 6e 2d |(setq ad|-return-|
|00001c60| 76 61 6c 75 65 20 28 62 | 75 66 66 65 72 2d 6e 61 |value (b|uffer-na|
|00001c70| 6d 65 20 28 63 75 72 72 | 65 6e 74 2d 62 75 66 66 |me (curr|ent-buff|
|00001c80| 65 72 29 29 29 29 29 29 | 29 20 61 66 74 65 72 20 |er))))))|) after |
|00001c90| 6e 69 6c 20 61 64 2d 61 | 63 74 69 76 61 74 65 2d |nil ad-a|ctivate-|
|00001ca0| 6f 6e 20 63 72 65 61 74 | 65 2d 66 69 6c 65 2d 62 |on creat|e-file-b|
|00001cb0| 75 66 66 65 72 20 28 63 | 72 65 61 74 65 2d 66 69 |uffer (c|reate-fi|
|00001cc0| 6c 65 2d 62 75 66 66 65 | 72 2d 75 6e 69 71 75 69 |le-buffe|r-uniqui|
|00001cd0| 66 79 20 6e 69 6c 20 74 | 20 28 61 64 76 69 63 65 |fy nil t| (advice|
|00001ce0| 20 6c 61 6d 62 64 61 20 | 6e 69 6c 20 22 55 6e 69 | lambda |nil "Uni|
|00001cf0| 71 75 69 66 79 20 62 75 | 66 66 65 72 20 6e 61 6d |quify bu|ffer nam|
|00001d00| 65 73 20 77 69 74 68 20 | 70 61 72 74 73 20 6f 66 |es with |parts of|
|00001d10| 20 64 69 72 65 63 74 6f | 72 79 20 6e 61 6d 65 2e | directo|ry name.|
|00001d20| 22 20 28 69 66 20 75 6e | 69 71 75 69 66 79 2d 62 |" (if un|iquify-b|
|00001d30| 75 66 66 65 72 2d 6e 61 | 6d 65 2d 73 74 79 6c 65 |uffer-na|me-style|
|00001d40| 20 28 75 6e 69 71 75 69 | 66 79 2d 72 61 74 69 6f | (uniqui|fy-ratio|
|00001d50| 6e 61 6c 69 7a 65 2d 66 | 69 6c 65 2d 62 75 66 66 |nalize-f|ile-buff|
|00001d60| 65 72 2d 6e 61 6d 65 73 | 20 28 61 64 2d 67 65 74 |er-names| (ad-get|
|00001d70| 2d 61 72 67 20 30 29 20 | 61 64 2d 72 65 74 75 72 |-arg 0) |ad-retur|
|00001d80| 6e 2d 76 61 6c 75 65 29 | 29 29 29 5d 20 35 29 0a |n-value)|)))] 5).|
|00001d90| 23 40 31 35 34 20 41 64 | 64 20 60 64 65 6c 61 79 |#@154 Ad|d `delay|
|00001da0| 65 64 2d 75 6e 69 71 75 | 69 66 79 2d 72 61 74 69 |ed-uniqu|ify-rati|
|00001db0| 6f 6e 61 6c 69 7a 65 2d | 66 69 6c 65 2d 62 75 66 |onalize-|file-buf|
|00001dc0| 66 65 72 2d 6e 61 6d 65 | 73 27 20 74 6f 20 60 70 |fer-name|s' to `p|
|00001dd0| 6f 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 68 6f 6f 6b |ost-comm|and-hook|
|00001de0| 27 2e 0a 46 6f 72 20 75 | 73 65 20 6f 6e 2c 20 65 |'..For u|se on, e|
|00001df0| 67 2c 20 60 6b 69 6c 6c | 2d 62 75 66 66 65 72 2d |g, `kill|-buffer-|
|00001e00| 68 6f 6f 6b 27 2c 20 74 | 6f 20 72 61 74 69 6f 6e |hook', t|o ration|
|00001e10| 61 6c 69 7a 65 20 2a 61 | 66 74 65 72 2a 20 62 75 |alize *a|fter* bu|
|00001e20| 66 66 65 72 20 64 65 6c | 65 74 69 6f 6e 2e 1f 0a |ffer del|etion...|
|00001e30| 28 64 65 66 61 6c 69 61 | 73 20 27 64 65 6c 61 79 |(defalia|s 'delay|
|00001e40| 2d 75 6e 69 71 75 69 66 | 79 2d 72 61 74 69 6f 6e |-uniquif|y-ration|
|00001e50| 61 6c 69 7a 65 2d 66 69 | 6c 65 2d 62 75 66 66 65 |alize-fi|le-buffe|
|00001e60| 72 2d 6e 61 6d 65 73 20 | 23 5b 6e 69 6c 20 22 08 |r-names |#[nil ".|
|00001e70| ad 87 09 ad 84 c2 c3 c4 | 5c 22 87 22 20 5b 75 6e |........|\"." [un|
|00001e80| 69 71 75 69 66 79 2d 62 | 75 66 66 65 72 2d 6e 61 |iquify-b|uffer-na|
|00001e90| 6d 65 2d 73 74 79 6c 65 | 20 75 6e 69 71 75 69 66 |me-style| uniquif|
|00001ea0| 79 2d 61 66 74 65 72 2d | 6b 69 6c 6c 2d 62 75 66 |y-after-|kill-buf|
|00001eb0| 66 65 72 2d 70 20 61 64 | 64 2d 68 6f 6f 6b 20 70 |fer-p ad|d-hook p|
|00001ec0| 6f 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 68 6f 6f 6b |ost-comm|and-hook|
|00001ed0| 20 64 65 6c 61 79 65 64 | 2d 75 6e 69 71 75 69 66 | delayed|-uniquif|
|00001ee0| 79 2d 72 61 74 69 6f 6e | 61 6c 69 7a 65 2d 66 69 |y-ration|alize-fi|
|00001ef0| 6c 65 2d 62 75 66 66 65 | 72 2d 6e 61 6d 65 73 5d |le-buffe|r-names]|
|00001f00| 20 33 20 28 23 24 20 2e | 20 37 35 37 34 29 5d 29 | 3 (#$ .| 7574)])|
|00001f10| 0a 23 40 31 33 34 20 52 | 65 72 61 74 69 6f 6e 61 |.#@134 R|erationa|
|00001f20| 6c 69 7a 65 20 62 75 66 | 66 65 72 20 6e 61 6d 65 |lize buf|fer name|
|00001f30| 73 20 61 6e 64 20 72 65 | 6d 6f 76 65 20 73 65 6c |s and re|move sel|
|00001f40| 66 20 66 72 6f 6d 20 60 | 70 6f 73 74 2d 63 6f 6d |f from `|post-com|
|00001f50| 6d 61 6e 64 2d 68 6f 6f | 6b 27 2e 0a 53 65 65 20 |mand-hoo|k'..See |
|00001f60| 61 6c 73 6f 20 60 64 65 | 6c 61 79 2d 72 61 74 69 |also `de|lay-rati|
|00001f70| 6f 6e 61 6c 69 7a 65 2d | 66 69 6c 65 2d 62 75 66 |onalize-|file-buf|
|00001f80| 66 65 72 2d 6e 61 6d 65 | 73 27 20 66 6f 72 20 68 |fer-name|s' for h|
|00001f90| 6f 6f 6b 20 73 65 74 74 | 65 72 2e 1f 0a 28 64 65 |ook sett|er...(de|
|00001fa0| 66 61 6c 69 61 73 20 27 | 64 65 6c 61 79 65 64 2d |falias '|delayed-|
|00001fb0| 75 6e 69 71 75 69 66 79 | 2d 72 61 74 69 6f 6e 61 |uniquify|-rationa|
|00001fc0| 6c 69 7a 65 2d 66 69 6c | 65 2d 62 75 66 66 65 72 |lize-fil|e-buffer|
|00001fd0| 2d 6e 61 6d 65 73 20 23 | 5b 6e 69 6c 20 22 c0 20 |-names #|[nil ". |
|00001fe0| 88 c1 c2 c3 5c 22 87 22 | 20 5b 75 6e 69 71 75 69 |....\"."| [uniqui|
|00001ff0| 66 79 2d 72 61 74 69 6f | 6e 61 6c 69 7a 65 2d 66 |fy-ratio|nalize-f|
|00002000| 69 6c 65 2d 62 75 66 66 | 65 72 2d 6e 61 6d 65 73 |ile-buff|er-names|
|00002010| 20 72 65 6d 6f 76 65 2d | 68 6f 6f 6b 20 70 6f 73 | remove-|hook pos|
|00002020| 74 2d 63 6f 6d 6d 61 6e | 64 2d 68 6f 6f 6b 20 64 |t-comman|d-hook d|
|00002030| 65 6c 61 79 65 64 2d 75 | 6e 69 71 75 69 66 79 2d |elayed-u|niquify-|
|00002040| 72 61 74 69 6f 6e 61 6c | 69 7a 65 2d 66 69 6c 65 |rational|ize-file|
|00002050| 2d 62 75 66 66 65 72 2d | 6e 61 6d 65 73 5d 20 33 |-buffer-|names] 3|
|00002060| 20 28 23 24 20 2e 20 37 | 39 35 39 29 5d 29 0a 28 | (#$ . 7|959)]).(|
|00002070| 61 64 64 2d 68 6f 6f 6b | 20 27 6b 69 6c 6c 2d 62 |add-hook| 'kill-b|
|00002080| 75 66 66 65 72 2d 68 6f | 6f 6b 20 27 64 65 6c 61 |uffer-ho|ok 'dela|
|00002090| 79 2d 75 6e 69 71 75 69 | 66 79 2d 72 61 74 69 6f |y-uniqui|fy-ratio|
|000020a0| 6e 61 6c 69 7a 65 2d 66 | 69 6c 65 2d 62 75 66 66 |nalize-f|ile-buff|
|000020b0| 65 72 2d 6e 61 6d 65 73 | 29 0a                   |er-names|).      |
+--------+-------------------------+-------------------------+--------+--------+